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, 14879 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
Microsoft Office
Excel VBA vbyesno
gelöst Frage von Florian86Microsoft Office2 Kommentare

Hallo, ich habe folgenden Code Sub AbgerundetesRechteck1_Klicken() Dim wksOrig As Worksheet Dim wksStore As Worksheet Dim lngLastRow As Long ...

VB for Applications
Excel VBA Code
gelöst Frage von specialuserVB for Applications2 Kommentare

Hallo zusammen, Hab hier einen Button in einer Excel mit Makros erstellt. Der Button hat die Funktion aus der ...

Microsoft Office
Excel VBA - PDF
Frage von SabineTMicrosoft Office3 Kommentare

Hallo Zusammen, ich habe ein pdf, über welches ich bereits die OCR Texterkennung laufen lassen habe. Jetzt möchte ich ...

VB for Applications
Excel VBA Programmierung
gelöst Frage von specialuserVB for Applications7 Kommentare

Hallo zusammen, ich suche auf diesem Weg Hilfe bei einer VBA Programmierung. Und zwar geht es darum 2 Dropdownlisten ...

Neue Wissensbeiträge
Router & Routing
Der "768k-Day" kommt
Information von LordGurke vor 7 StundenRouter & Routing2 Kommentare

Für Leute, die Router mit BGP-Fulltable betreiben vielleicht ein interessanter Hinweis: Die IPv4-Fulltable erreicht voraussichtlich innerhalb der nächsten 2-3 ...

Debian

Partition angeblich voll, dabei aber noch nicht mal zur Hälfte belegt

Anleitung von diemilz vor 9 StundenDebian7 Kommentare

Hallo zusammen, ich habe ein kleines Problem: Ich habe auf einem physischen Debian Linux Server als ZoneMinder-Server (HP ProLiant ...

Windows 7
Updategängelung auf Windows 10, die zweite
Information von Penny.Cilin vor 5 TagenWindows 72 Kommentare

Hallo, da Windows 7 im kommenden Jahr nicht mehr supportet wird, werden Nutzer von Window 7 home premium wieder ...

Internet
EU-Urheberrechtsreform: Zusammenfassung
Information von Frank vor 7 TagenInternet1 Kommentar

Auf golem.de gibt es eine Analyse von Friedhelm Greis, der das Thema EU-Urheberrechtsreform gut und strukturiert zusammenfasst. Zwar haben ...

Heiß diskutierte Inhalte
Backup
Veeam Community Edition
gelöst Frage von dgrebnerBackup21 Kommentare

Hallo Zusammen, kann jemand seine praktischen Erfahrungswerte mit der Veeam-Community Edition mit mir teilen? Es gab dazu ja schon ...

LAN, WAN, Wireless
Notebooks in Firmenwlan authentifizieren
gelöst Frage von EarthShakerLAN, WAN, Wireless17 Kommentare

Guten Tag, unsere Firma möchte gerne flächendeckend WLAN einführen und hat zu diesem Zweck einen Dienstleister beauftragt. Wir benötigen ...

Festplatten, SSD, Raid
Harddisk kaputt, was sagt mir ChrystalDiskInfo
gelöst Frage von InfoSeekerFestplatten, SSD, Raid14 Kommentare

Hallo zusammen, Mein Rechner lahmt. Ich stell mir die Frage woran es liegt und bin der Meinung es ist ...

Netzwerkmanagement
Netzwerk vorübergehend weg
gelöst Frage von ahstaxNetzwerkmanagement13 Kommentare

Hallo, folgendes Szenario stellt sich dar: Im Netzwerk mit Win7-PCs wurden Switche ausgetauscht. Grundsätzlich funktioniert alles mindestens so gut ...