DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
Rica ederim. Kolay gelsin.Sayın Husgvarna çok çok teşekkür edrim. Seyenizde Excelde bir adım daha ilerledim. Elleriniz dert görmesin.