Bei Passwortschutz sollen geschützte Zellen ...
07.11.2007 09:59:00
Peter
Guten Tag
Mit nachfolgendem Makro schütze in in einem Workbook alle Tabellen. Ein Problem bleibt: Zellen, bei denen im geschützten Modus keine Eingabe erlaubt ist, können auch nicht angewählt werden. Wie muss ich diesen Code ergänzen, dass diese Zellen auch anwählbar und somit die geschützte Formel ersichtlich ist?
Danke für eine Rückmeldung.
Peter
Sub ATabellenschutz_aktivieren_alle()
Application.ScreenUpdating = False
ThisWorkbook.Activate
stractivesheet = ActiveSheet.Name
ActiveCell.Activate
stractivecell = Selection.Address
' mit userinterfaceOnly:=True wird bewirkt, dass Markros auch in geschützten Tabellen laufen,
' d.h. sie müssen nicht bei jeder Routine entschützt werden
Dim tabz As Integer
Dim i As Integer
Passwort_Abfragen
tabz = ActiveWorkbook.Worksheets.Count
For i = 1 To tabz
Sheets(i).Protect DrawingObjects:=True, _
contents:=True, _
UserInterfaceOnly:=True, _
Scenarios:=True, Password:=strpasswort & "!!"
Next i
Sheets(stractivesheet).Activate
Range(stractivecell).Activate
Application.ScreenUpdating = True
End Sub