Thursday, September 15, 2016

Buka Program Defauld Windows Dengan UserForm VBA Excel "Cmd, Explorer, Notepad, Calculator"


Buka Program Defauld Windows Dengan UserForm VBA Excel "Cmd, Explorer, Notepad, Calculator" - Perhatikan gambar format gif diatas..!!! 

Cara Buka Program Defauld Windows Dengan UserForm VBA Excel "Cmd, Explorer, Notepad, Calculator" sebagai berikut :
  • Buka Excel - Developer - Klik Visual Basic 
  • Pada jendela Visual Basic Masukkan UserForm 
  • Selanjutnya Masukkan Label dengan Properties sebagai berikut 
Properties Label
"Label1" Ubah Caption "Cmd"
"Label2" Ubah Caption "Explorer"
"Label3" Ubah Caption "Notepad"
"Label4" Ubah Caption "Calculator"
  • Masukkan Kode berikut untuk Label1 Caption Cmd
Private Sub Label1_Click()
Dim Program As String
Dim TaskID As Double
On Error Resume Next
Program = "Cmd.exe"
TaskID = Shell(Program, 1)
If Err <> 0 Then
MsgBox "Cmd tidak bisa terbuka " & Program
End If
End Sub
  • masukkan Kode berikut untuk Label2 Caption Explorer
Private Sub Label2_Click()
Dim Program As String
Dim TaskID As Double
On Error Resume Next
Program = "explorer.exe"
TaskID = Shell(Program, 1)
If Err <> 0 Then
MsgBox "Explorer tidak bisa terbuka " & Program
End If

End Sub
  • Masukkan Kode berikut untuk Label3 Caption Notepad
Private Sub Label3_Click()
Dim Program As String
Dim TaskID As Double
On Error Resume Next
Program = "NotePad.exe"
TaskID = Shell(Program, 1)
If Err <> 0 Then
MsgBox "NotePad tidak bisa terbuka " & Program
End If
End Sub
  • Masukkan Kode berikut untuk Label4 Caption Calculator
Private Sub Label4_Click()
Dim Program As String
Dim TaskID As Double
On Error Resume Next
Program = "calc.exe"
TaskID = Shell(Program, 1)
If Err <> 0 Then
MsgBox "Kalkulator tidak bisa terbuka " & Program
End If
End Sub

Demikian Posting Buka Program Defauld Windows Dengan UserForm VBA Excel "Cmd, Explorer, Notepad, Calculator". Semoga dapat dikembangkan dengan cara sendiri untuk membuka program lainnya

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon