Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Excel 2007, Arbeitsmappe per VBA entsperren, Inhalt hinzufügen, wieder sperren und speichern.

Mitglied: Ulmer

Ulmer (Level 1) - Jetzt verbinden

06.03.2010 um 15:26 Uhr, 14244 Aufrufe, 6 Kommentare

Hallo,

vielleicht kann mir ja einer der VBA-Experten weiterhelfen:

Ich habe eine Excel-Datei (gespeichert als .xls) mit 15 Arbeitsblättern. Die Arbeitsmappe und die Arbeitsblätter sind passwort geschützt (gleiches Passwort). In allen Arbeitsblätter soll in der Fußzeile links unten die Versionsnummer der Datei (des Formulars) eingetragen werden (z.B. V.1.1.). Die Versionsnummer wird manuell vergeben. Bislang mache ich das wegen fehlender VBA-Kenntnisse händisch. D.h.Arbeitsblatt entsperren, zur Fußzeile wechseln, die Nummer eintragen bzw. überschreiben, dann wieder sperren und dann weiter mit dem nächsten Arbeitsblatt. Gibt es eine Möglichkeit, dies über VBA zu automatisieren und könnte mir dabei jemand helfen?

Viele Grüße
Ulmer
Mitglied: bastla
06.03.2010 um 15:41 Uhr
Hallo Ulmer!

Sollte sich ziemlich direkt durch das Aufzeichnen eines Makros zunächst für eine Mappe und das nachfolgende Einbetten (erste zwei Zeilen unmittelbar nach "Sub Makro1()", letzte zwei Zeilen unmittelbar vor "End Sub") des entstandenen Makros in eine Schleife der Art
01.
For Each Blatt In Worksheets() 
02.
    Blatt.Activate 
03.
    'hier Dein Makro-Code 
04.
Next 
05.
Worksheets(1).Activate
durchführen lassen.

Grüße
bastla
Bitte warten ..
Mitglied: 76109
06.03.2010 um 16:36 Uhr
Hallo Ulmer, Hallo bastla!

Wobei in der Each-Schleife auch noch die Anweisungen zum sperren und entsperren stehen:
01.
For Each Blatt in Worksheets() 
02.
    Blatt.Unprotect Password:="Passwort" 
03.
    ..... 
04.
    ..... 
05.
    Blatt.Protect Password:="Passwort" 
06.
Next
Das Passwort könnte dabei im Code stehen, per InputBox unverschlüsselt (Reiner Text) oder per UserForm verschlüsselt (* * * *) abgefragt werden.

Gruß Dieter
Bitte warten ..
Mitglied: bastla
06.03.2010 um 16:53 Uhr
@76109

Danke für die Ergänzung - das Entsperren des Blattes wird zwar beim Aufzeichnen des Makros auch erfasst als
ActiveSheet.Unprotect
(diese Zeile kann dann im aufgezeichneten Makro ebenso entfernt werden wie das Gegenstück "ActiveSheet.Protect + einige Paramete" am Ende ), die Übergabe des Passworts muss allerdings im Code ergänzt werden.
Das Passwort könnte dabei im Code stehen, per InputBox unverschlüsselt (Reiner Text) oder per UserForm verschlüsselt (* * * *) abgefragt werden.
Mit der Variante "InputBox" würde das dann so aussehen:
01.
PW = InputBox("Bitte das Blattschutz-Passwort eingeben!", "Passwort eingeben") 
02.
For Each Blatt in Worksheets() 
03.
    Blatt.Unprotect Password:=PW 
04.
    ..... 
05.
    ..... 
06.
    Blatt.Protect Password:=PW 
07.
Next
Annahme dabei: Alle Blätter werden mit dem selben Passwort geschützt - anderenfalls müsste die Reihenfolge der Zeilen 1 und 2 vertauscht werden.

Grüße
bastla
Bitte warten ..
Mitglied: 76109
06.03.2010 um 17:57 Uhr
@bastla

Zitat von bastla:
Danke für die Ergänzung - das Entsperren des Blattes wird zwar beim Aufzeichnen des Makros auch erfasst als.....
Gern geschehen
Annahme dabei: Alle Blätter werden mit dem selben Passwort geschützt - anderenfalls müsste die Reihenfolge der
Zeilen 1 und 2 vertauscht werden.
In dem Fall, was ich schon als sehr ungewöhnlich empfinde, müsste man dann aber das aktuelle Blatt im Text der InputBox mit angeben, sonst weiß man ja nicht, welches Blatt gerade bearbeitet wird

Gruß Dieter
Bitte warten ..
Mitglied: bastla
06.03.2010 um 18:11 Uhr
@76109
müsste man dann aber das aktuelle Blatt im Text der InputBox mit angeben, sonst weiß man ja nicht, welches Blatt gerade bearbeitet wird
Ebenfalls sehr sinnvoll (durch "Blatt.Activate" wird zwar auf die jeweilige Tabelle gewechselt, allerdings erst einen Schritt später) ...

Die "InputBox" könnte dann so aufgerufen werden:
PW = InputBox("Bitte das Blattschutz-Passwort für " & Blatt.Name & " eingeben!", "Passwort für " & Blatt.Name) 
Grüße
bastla
Bitte warten ..
Mitglied: Ulmer
08.03.2010 um 10:15 Uhr
Hallo bastla, hallo Dieter,

vielen Dank für die umfassende und schnelle Unterstützung. Ich werde eure Vorschläge gleich mal ausprobieren.

Viele Grüße
Ulmer
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Inhalte vergleichen - Excel VBA
gelöst Frage von Acht85VB for Applications10 Kommentare

Hallo lieber User, ich habe ein kurze Frage und würde mich sehr freuen, wenn ihr mir damit weiterhelfen könnt. ...

Microsoft
Excel-Datei mit VBA speichern
gelöst Frage von 116408Microsoft6 Kommentare

Guten Tag Ich habe eine Excel-Datei, in der in D4 der Kundenname und in D11 das Projekt benennt wird. ...

Microsoft Office

VBA Excel bei manuellem Spaltenwechsel Arbeitsmappe automatisch sichern

gelöst Frage von FAAB58Microsoft Office3 Kommentare

Hallo liebe Gemeinde, ich habe ein Problem ( wie so viele andere ) und hoffe eine Idee zu bekommen. ...

VB for Applications

Jede Datei eines Ordners zu aktueller Arbeitsmappe in Excel hinzufügen

gelöst Frage von BacchidaVB for Applications2 Kommentare

Hallo :) nachdem ich die letzten Tage damit verbracht habe das Internet nach einer Lösung für mein Problem zu ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 1 TagWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 1 TagSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 2 TagenDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein interessanter Beitrag dazu: Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10 Anscheinend ...

Sicherheit
Information Security Hub Munich airport
Information von brammer vor 2 TagenSicherheit

Hallo, Neues Center für Cyber Kriminalität am Münchener Flughafen brammer

Heiß diskutierte Inhalte
DSL, VDSL
Mindestgeschwindigkeiten DSL Telekom
Frage von justlukasDSL, VDSL13 Kommentare

Hallo zusammen, Seit diesem Jahr habe ich Verständnisprobleme mit dem Verhalten der Telekom. Wir haben seit einem Jahr VDSL ...

Switche und Hubs
LANCOM-Switch: Probleme (no link) mit SFP-Modulen?
Frage von THETOBSwitche und Hubs11 Kommentare

Hi zusammen, ich habe folgendes Problem: Und zwar habe ich an einem Standort drei Switche verbaut - LANCOM GS-2326P+, ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)10 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall10 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...