Makro İle VBA Parolası Koymak

[baydeniro]

Merhaba arkadaşlar. VBA şifresini makro ile koymak mümkün mü ? Nasıl bir kod ile yapılabilir ?

 

[baydeniro]

Merhaba arkadaşlar. VBA şifresini makro ile koymak mümkün mü ? Nasıl bir kod ile yapılabilir ?

 

[baydeniro]

Merhaba arkadaşlar. VBA şifresini makro ile koymak mümkün mü ? Nasıl bir kod ile yapılabilir ?

 

[uzmanamele]

merhaba

konu ile ilgili Levent beyin örnek çalışması olacak, sitede araştırınız.

 

[baydeniro]

Sayın uzmanamele ilginize çok teşekkür ederim. Sayın leventm'in konu ile ilgili olabilecek tüm mesajlarına/konulara baktım ancak bir sonuç çıkaramadım.

 

[Husgvarna]

Aşağıdaki kodu deneyin.
(Güvenlik/VBA project erişimine güven işaretli olmalı.)

Option Explicit
Const BreakIt As String = "%{F11}%TE+{TAB}{RIGHT}%V{+}{TAB}"

Private Sub CommandButton1_Click()
Dim WB As Workbook
Dim Password As String
Set WB = ActiveWorkbook
Password = "123"
Call SetVBProjectPassword(WB, Password)
End Sub

Sub SetVBProjectPassword(WB As Workbook, ByVal Password As String)
Dim VBP
Dim OpenWin
Dim i As Integer
Set VBP = WB.VBProject
Application.ScreenUpdating = False
For Each OpenWin In VBP.VBE.Windows
If InStr(OpenWin.Caption, "(") > 0 Then OpenWin.Close
Next OpenWin
WB.Activate
SendKeys BreakIt & Password & "{tab}" & Password & "~" & "%{F11}~", True
WB.Activate
SendKeys "%{F11}", True
Application.ScreenUpdating = True
'----------------
Call srs
'-------------------
End Sub
Sub srs()
ActiveWorkbook.Save
Application.Quit
End Sub

 

[baydeniro]

Sayın Husgvarna çok çok teşekkür edrim. Seyenizde Excelde bir adım daha ilerledim. Elleriniz dert görmesin.

 

[Husgvarna]

Sayın Husgvarna çok çok teşekkür edrim. Seyenizde Excelde bir adım daha ilerledim. Elleriniz dert görmesin.

Rica ederim. Kolay gelsin.