sayfa2'yi, seçtiğim zaman inputbox'lı bir şifre ekranı gelsin

[Erdem Akdemir]

sayfa2'yi seçtiğim zaman döngü devreye girsin

inputbox nesnesi gelsin ve defalut değerini girmeden kapanmasın

yardımlarınızı bekliyorum

 

[fedeal]

şöyle bir çözüm buldum
Private Sub Worksheet_Activate()
fd = InputBox("şifregiriniz", "fedeal")
If fd = "1234" Then
Else
Sheets("sayfa1").Select
Sheets("sayfa2").Select
End If
End Sub
sayfa2nin kod bölümüne yazınız şifre yalnış olunca sayfayı tekrar açıyor inputbox tekrar devreye giriyor.

 

[Erdem Akdemir]

Private Sub Worksheet_Activate()
fd = InputBox("şifregiriniz", "fedeal")
If fd = "1234" Then
Sheets("sayfa2").Select
Else
Sheets("sayfa1").Select
End If
End Sub

bu şekilde düzeltince oldu çok sağolun

 

[fedeal]

rica ederim şifre yalnış olunca sayfa1 e dönüyor zannedersem ben çalışmamda
Private Sub Worksheet_Activate()
Cells.Select
With Selection.Interior
.ColorIndex = 56
.Pattern = xlSolid
End With
Range("A1").Select
fd = InputBox("şifregiriniz", "fedeal")
If fd = "1234" Then
Cells.Select
Selection.Interior.ColorIndex = xlNone
Range("A1").Select
Else
Sheets("sayfa1").Select
Sheets("sayfa2").Select
End If
End Sub
şeklinde kullandım hücreleri siyaha boyuyor görünmemesi için şifre girince dolgu rengini kaldırıyor. iyi çalışmalar.