Aynı şekilde hata alıyorum peki bu şifre değiştirme için farklı bir kod var mı bende  anlam veremedim çalışmıyor.

sizde tam olarak ne hatası veriyor?

Yanlış Şifre İlk aşamadaki giriş formundaki şifreyi bulmuyor gibi ilk aşamada kalıyor.

---

admin olarak giriş yapmaya çalışıyorum Excel açmıyor.

bende sorun bağlanma aşamasında oluyordu bağlantı sağlandıktan sonra bir sorun olmaması gerek
eğer siz diğer tablolara bağlanıp veri alabiliyorsanız -en basitinden raporlama formunda tarih girdiğinizde verileri getiriyorsa bağlanmada sorun yok demektir- kodun bu kısmında sorun çıkmaması gerek çünkü ben denediğimde değişikliği kaydediyordu.
dosyanızı gönderin bakalım ama işe yarar mı bilmem

Grafik ve şifre değiştirme dışında sorun yok ikisi kaldı sadece. Farklı kodlama ile yapa biliyorsak oda olur.

bu dosya mı kullanıyorsunuz
yani sorun çıkaran dosyada aşağıdaki kodlar mı var
giriş formunda

If user = "admin" Then

Application.Visible = True

Me.Hide

Exit Sub

End If