dzieki ale napewno nie ma innej opcji??????
przeciesz w Windowsie sa pliki których nazw sie nie tyka i jakos to musi byc zrobione wydaje mi sie ze kiedys cos takiego robiłem ale nie jestem pewny jesli ktos ma jakis pomysł to czekam nadal

pozdro Bogus

Witaj.
Fakt bezsporny. Nie da się przewidzieć działań uźyszkodników :oops:

Ale moźe taki kod (w module ThisWorkbook) choć trochę utrudni radosną twórczośc w nazywaniu Twojego pliku.

Private Sub Workbook_Open()
Const nazwa_pliku = "dane.xls"
If Me.Name <> nazwa_pliku Then
MsgBox "Przywróć plikowi oryginalną nazwę: " & nazwa_pliku
Me.Close
End If
End Sub

pozdrawiam
Rycho

Nie da sie.