Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: geschützte Tabellen trotzdem mit VBA bearbeiten

geschützte Tabellen trotzdem mit VBA bearbeiten
08.06.2007 09:27:29
Peter
Guten Tag
In einem Worksheet habe ich ein Code, der mir alle Tabellen schützt (zZt kein Passwort). Wie muss ich den Code ergänzen, dass geschützte Tabellen weiterhin bearbeitet werden können, wenn dies mittels VBA Code geschieht?
Vielen Dank für eine Rückmeldung.
Peter

Sub DateiSchützen()
Dim Wks As Worksheet
Dim myPwd As String
For Each Wks In ThisWorkbook.Worksheets
Wks.Protect Password:=myPwd      'myPwd hat zurzeit Wert ""
Next
End Sub


Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: geschützte Tabellen trotzdem mit VBA bearbeiten
08.06.2007 09:33:00
Horst
Hallo
ActiveSheet.Unprotect 'So hebst Du den schutz auf
Dein Code, mit welchem Du das Blatt bearbeitest
ActiveSheet.Protect 'Das Blatt wird wieder geschützt
Gruß Horst

AW: geschützte Tabellen trotzdem mit VBA bearbeiten
08.06.2007 09:59:00
Peter
Hallo Horst
Meines Wissens kann man mit dem Befehl Protect ein paar Parameter zufügen, dass Unprotect gar nicht mehr notwendig ist.
Wer weiss, wie es hier in meinen Code integriert wird?
Danke, Peter

Anzeige
AW: geschützte Tabellen trotzdem mit VBA bearbeiten
08.06.2007 11:17:28
Peter
Hallo
Hier ist mein "fast fertiger" Code. Die Codezeile nach Case Else funktioniert leider nicht. Kann mir jemand sagen, wie ich dies modifizieren muss?
Herzlichen Dank, Peter

Sub DateiSchützen()
Dim Wks As Worksheet
Dim myPwd As String
Dim myPwd2 As String
'myPwd = Application.InputBox("Passwort eingeben")
'myPwd2 = Application.InputBox("Wiederholung")
For Each Wks In ThisWorkbook.Worksheets
Select Case Wks.Name
Case "Inventar", "Import","Date"
Case Else
Wks.Protect , DrawingObjects:=True, _
contents:=True, _
UserInterfaceOnly:=True, _
Scenarios:=True, Password:=myPwd
End Select
Next
End Sub


Anzeige
AW: geschützte Tabellen trotzdem mit VBA bearbeiten
08.06.2007 11:19:56
Josef
Hallo Peter,
ein Komma zuviel.

Wks.Protect  DrawingObjects:=True, _
contents:=True, _
UserInterfaceOnly:=True, _
Scenarios:=True, Password:=myPwd


Gruß Sepp

Anzeige
AW: geschützte Tabellen trotzdem mit VBA bearbeiten
08.06.2007 11:29:00
Peter
Hallo Josef
Kleine Ursache, dumme Wirkung
Vielen Dank, dass du mir so schnell die Lösung gebracht hast!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige