kurze Frage:
ist es möglich Ordnernamen, Dateinamen und Blattnamen vor Umbenennung zu schützen?
Danke
Alex
Public pShName As String
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
pShName = ActiveSheet.Name
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If pShName = "" Then Exit Sub
If Sh.Name pShName Then
MsgBox "Blatt [" & Sh.Name & "]" & vbCrLf & _
"wird [" & pShName & "]", vbOKOnly + vbExclamation, "Umbennen"
Sh.Name = pShName
End If
End Sub
GreetZ Renée