Matthias hat mir freundlicherweise eine Möglichkeit aufgezeigt, wie man die Schriftart bei ungeschützten Zellen trotz Blattschutz verändern kann. Es funktioniert auch super. Trotzdem habe ich noch ein Problem (an alle weil ich nicht weiß, ob Matthias noch online ist; nochmals Danke an dieser Stelle).
Leider haben einige meiner Kollegen Office XP und dort funktionierts im Gegensatz zu Office 97 nicht.
Fehlermeldung: Die Show-Methode des Dialog-Objekts konnte nicht ausgeführt werden.
Vielleicht weiß jemand auch hier einen Rat.
Vielen Dank
Gruß
Erwin
Lösung von Matthias:
Modul:
Sub test()
ActiveSheet.Protect Password:="123", userinterfaceonly:=True
End Sub
Codemodul des Blattes:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Target.Locked Then
Cancel = True
Application.Dialogs(xlDialogActiveCellFont).Show
End If
End Sub
Dann wird bei einem Rechtsklick auf ungeschützte Zellen der Zellenformat-Dialog angezeigt.
Gruß Matthias