KULLANICI ADI VE ŞİFRE

[Haluk]

Semih bey;

Nasıl bir şey kastettiğinizi tam anlayamadım ama konu hakkında daha önce verdiğim örneğe benzer olan, aşağıdaki dosya işinize yarar mı ?

Not: Daha önceleri de dediğim gibi, bu tür VBA kodlarıyla dosyaların güvenliğini sağlamak çok fazla işe yaramaz.

Bu nedenle menülerin kısıtlanması da sadece, VBA'i çok fazla bilmeyen kullanıcılara bir yere kadar engel olur.

 

[maverick6]

Sayın Raider, vermiş olduğunuz ilk şifre dosyasını kendi dosyama uygulamaya çalıştım güzel oldu ama, makroları etkinleştirmeyince de çalışıyor. Bir yol gösterebilirmisiniz. teşekkürler

 

[Haluk]

ilk şifre dosyasını kendi dosyama uygulamaya çalıştım güzel oldu ama, makroları etkinleştirmeyince de çalışıyor.

Demek ki işe yarıyan bir dosya olmuş .... :mrgreen:

Kullanıcı adı ve şifreyi girerek dosyayı açtıktan sonra kodlardaki;

ThisWorkbook.IsAddin = True

ve,

ThisWorkbook.IsAddin = False

satırlarının başına bir tane kesme işareti koyarak, bu satırları pasif hale getirip, dosyayı kaydedin ve dosyayı kapatın.

Veya, makroları etkinleştirmeden dosyayı açın.... ALT + F11 tuşlarına basın, VBE kısmına geçin. Ã?zellikler penceresinde ThisWorkbook kısmında IsAddin özelliğini "False" yapın. Dosyayı kaydedin, kapatın ve makroları etkinleştirmeden tekrar açın...

 

[INSMUH]

Haluk Bey: KisitliMenu.zip uygulamanız çok işime yaradı ellerinize sağlık,
SifreGirisi.zip çalışmanızıda kendi kitabıma eklemek istedim ama kodlar sürekli hata verdi:

Public MyUser As String
Public MyPass As String
Public MyPass
Public MyVal As Boolean
'txt dosyasına bağlı'
Const strTxtFile As String = "C:\deneme.txt"
Const MyCheckVal As Long = 123456
Sub Auto_Open()
'kısıtlı Menü
Dim UserArray()
    Dim i As Byte
    Dim MyVal As Boolean
    MyVal = False
    Set RaiderMenu = Application.CommandBars("Worksheet Menu Bar").Controls(1)
        With RaiderMenu.Controls.Add(msoControlButton, 1, , RaiderMenu.Controls.Count - 1, True)
            .BeginGroup = True
            .Caption = "Kısıtlı Menü Erişimi (by Raider®)"
            .OnAction = "ShowForm"
            .FaceId = 7
        End With
    Set RaiderMenu = Nothing
    Call OrganizeMenus(MyVal)
    Call EnableShortcutMenus(MyVal)

'txt dosyasına bağlı'
Dim InputData As Variant
Dim FileNum As Long
Dim x As Integer
FileNum = FreeFile
    If Dir(strTxtFile) <> Empty Then
        Open strTxtFile For Input As FileNum
            x = x + 1
            Do While Not EOF(FileNum)
                Line Input #FileNum, InputData
                If Left(InputData, 6) <> MyCheckVal Then GoTo NoGo:
                If x = 1 Then Exit Sub
            Loop
        Close FileNum
        ThisWorkbook.IsAddin = False
    Else
NoGo:
        ThisWorkbook.IsAddin = True
        MsgBox "Lisansınız doğrulanmadı! Kayitli kullanici degilsiniz...", vbCritical, "Kullanicinin dikkatine..."
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub

aşağıdaki kodlar sorun sanırım

Public MyUser As String
Public MyPass As String
Public MyPass
Public MyVal As Boolean

Yardımlarınızı bekliyorum iyi çalışmalar.

 

[jokerlifes]

merhaba daha önceki dosyaları inceledim tam istediğim şekilde ama ben alt sayfaları isimlendirmek istiyorum ve 3 tane den fazla kullanmak istiyorum yardımlarınızı bekliyorumm