Excel Blattschutz mit vba
05.08.2017 07:51:01
Vinz
Die Blätter meiner Datei sind mit einem Blattschutz versehen, damit andere User mit den Formeln keinen Unsinn anstellen...
Jetzt möchte ich in der Datei etwas ändern ohne dass die User ihre bereits eingetragenen Daten verlieren...
Also makro aufgezeichnet, Passwort eingetragen, ABER: nach dem wiederholten Protect durch das makro übernimmt es nicht die eingetragenen Einstellungen: Nutzer dürfen nämlich durchaus Zellen anklicken und Formtieren etc...
hier mal der Code:
Sub enstperren()
' enstperren Makro
Windows("Mappe2.xlsm").Activate
Sheets("Blatt1").Select
Sheets("Blatt1").Unprotect Password:="test"
Range("Q11").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets("Blatt1").Protect Password:="test", DrawingObjects:=False, Contents:=True, Scenarios: _
= _True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _AllowFormattingRows:=True
Windows("Mappe1").Activate
End Sub