Kann ich per VBA den Schreibschutz für ein Tabellenblatt (sheet) permanent ändern.
Folgende Codes laufen zwar, jedoch bei einer Abfrage des Statuses "Protect", bekomme ich immer die Meldung, die Seite ist SChreibgeschütz, obwohl die Seite vorher unprotect war.
Nach der Statusabfrage ist die Seite aber komischerweise wieder schreibgeschützt.
Hier meine Codes
Schreibschutz setzen:
sub BlattSchutzSetzen()
activesheet.protect ("meinPasswort"), DrawingObjects:=False,Contents:=False,Scenario:=true
MsgBox"Diese Seite ist nun schreibgeschützt.",vbOKonly,"Hinweis"
End sub
Schreibschutz entfernen:
sub BlattschutzAufheben()
Activesheet.unprotect("Mein Passwort")
MsgBox "Text",vbOKonly,"Hinweis"
end sub
Statusabfrage ob schreibgeschützt oder nicht.
Sub Status()
if activeSheet.protect = True Then
MsgBox"Diese Seite ist im Augenblick schreibgeschützt",vbOKonly,"Hinweis"
else
MsgBox"Diese Seite ist NICHT schreibgeschützt",vbOKonly,"Hinweis
end if
end sub
Danke, mal wieder, für Eure Hilfe
VoVo