Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Ekim 2003 Pazartesi

SaveAs Password

'Module1

Sub SaveAs_Password()
On Error GoTo 20
10
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Password:="0123456789"
ActiveWindow.Close
Application.DisplayAlerts = True
GoTo 10
20
Exit Sub
End Sub

10 Ekim 2003 Cuma

Password With InputBox


'Module1

Dim Şifre, Deneme As Long

Sub ŞifreSorgusu()
On Error Resume Next
60 Şifre = InputBox("Lütfen şifreyi giriniz!" & vbCrLf & vbCrLf & "Mustafa ULUSARAÇ 01ulusarac@superonline.com", "[PBİD®] Şifre Sorgusu")
If Şifre = "0123456789" Then
Range("A1").Select
Exit Sub
Else
MsgBox "Yanlış şifre girdiniz!" & vbCrLf & vbCrLf & "Mustafa ULUSARAÇ 01ulusarac@superonline.com", vbInformation, "[PBİD®]Lütfen Dikkat..."
End If
Deneme = MsgBox("Yeniden denemek ister misiniz?" & vbCrLf & vbCrLf & "Mustafa ULUSARAÇ 01ulusarac@superonline.com", vbYesNo, "[PBİD®]Lütfen Dikkat...")
If Deneme = 6 Then
GoTo 60
Else
Exit Sub
End If
End Sub

1 Ekim 2003 Çarşamba

Timing Control




'UserForm1

'Add Tools on UserForm1: label1
Option Explicit
Dim Kalan As Double
Dim Bitiş As Date

Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] Timing on UserForm Components..."
End Sub
Private Sub UserForm_Activate()

On Error Resume Next
Application.OnTime VBA.Now + VBA.TimeValue("00:00:30"), "ZamanlanmışKomut"
Bitiş = VBA.Now + VBA.TimeValue("00:00:30")
Do
Kalan = VBA.Round((Bitiş - VBA.Now) * 100000, 0)
Label1.Caption = Kalan & " saniye içinde form kapanacaktir!"
DoEvents
Loop
End Sub

'Module1

Option Explicit

Sub ZamanlanmışKomut()

On Error Resume Next
MsgBox "Be closed within 30 seconds." & vbCrLf & vbCrLf& "Mustafa ULUSARAÇ" & vbCrLf & "01ulusarac@superonline.com", vbInformation, "[PBİD®] Lütfen Dikkat!!!"
Unload UserForm1
End Sub


 

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul