Hallo,
ich habe die folgenden Makros geschrieben ... funkt auch so habe nur ein Problem !!!
Ich kann in die Zellen nicht mehr formatieren Farbe Schrift Größe obwohl die Zellen frei sind ... Werte eintragen kann ich !
Was habe ich falsch gemacht bzw. wo liegt der Fehler ??
Option Explicit
Function MakierBereich() As String
Dim Internrange As Range
On Error GoTo Brutt
Set Internrange = Application.InputBox("makierten Bereiches ?", _
"(ent)sperren des",Selection.AddressLocal,Type:=8)
MakierBereich = Internrange.Address
Exit Function
Brutt:
MakierBereich = "A1"
End Function
Sub MakiertesSperren()
Dim MaBereich As String
MaBereich = MakierBereich
If MaBereich <> "A1" Then
On Error Resume Next
ActiveSheet.Unprotect Password:="ex009" ' Blattschutz aus
Range(MaBereich).Locked = True
ActiveSheet.Protect Password:="ex009" ' Blattschutz ein
End If
End Sub
Sub MakiertesLoessen()
Dim MaBereich As String
MaBereich = MakierBereich
If MaBereich <> "A1" Then
On Error Resume Next
ActiveSheet.Unprotect Password:="ex009" ' Blattschutz aus
Range(MaBereich).Locked = False
ActiveSheet.Protect Password:="ex009" ' Blattschutz ein
End If
End Sub
Sub KompletteLoessen()
On Error Resume Next
ActiveSheet.Unprotect Password:="ex009" ' Blattschutz aus
End If
End Sub
Sub MakiertesWasIst()
If ActiveSheet.ProtectContents = False Then
MsgBox "NICHT geschützt", 64, "Blatt ist"
Else
MsgBox "geschützt", 48, "Blatt ist"
End If
End Sub
|