Private Sub genel_Click()

On Error GoTo Err_genel_Click

Dim sifre As String

 

 sifre= InputBox("Bu forma giriş yapabilmek " & Chr(10) & Chr(10) & "için lütfen şifreyi giriniz...", "Şifreli Giriş Alanı")



 If sifre= "" Or sifre= Empty Then

 MsgBox "Şifre alanını boş bıraktınız." & vbCrLf & 

"Şifrenizi girmediğiniz sürece bu formu göremezsiniz." & vbCrLf & 

"Form içeriğini görebilmek için lütfen şifrenizi giriniz...", , "Boş Alan Uyarısı"

 

 Exit Sub

 End If



 If sifre= "12345" Then 'Buraya yazacağınız kelime şifreniz olacaktır.

 

 DoCmd.OpenForm "KONTROL_İZLEME_FORMU" 'Açılacak formun adını belirleyiniz.

 

 Else

 MsgBox "Hatalı Şifre Girdiniz."



 End If

Exit_genel_Click:

 Exit Sub



Err_genel_Click:

 MsgBox Err.Description

 Resume Exit_genel_Click

 

End Sub

'Not: yukarıda yazılı olan ınputBox şifre girişlerinde, yazılan şifrenin gözükmemesini istiyorum.
Yıldızlı görüntü şeklini uyarlarmısınız. Teşekkürler.

arkadaşım teşekkürler ama bir türlü olmadı..

Yazdığın kodları biraz açıklayabilirmisin
Bınları button a mı yapıştıracağım, açılacak alan form hangisi vb. açıklarmısın. Teşekkürker

Public Class Form1



Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Int32

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Int32, ByVal wCmd As Int32) As Int32

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32



Dim inputTitle As String = "Enter the Password!"

Dim returnedPW As String

Const asteriskKeyCode = 42

Public Const EM_SETPASSWORDCHAR = &HCC

Public Const WM_CREATE = &H1

Dim windowHandle As Int32

Public Const GW_CHILD = 5



Public Sub setPassword()

Dim editWindow As Int32

editWindow = GetWindow(windowHandle, GW_CHILD)

SendMessage(editWindow, EM_SETPASSWORDCHAR, asteriskKeyCode, 0)

End Sub

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

MyBase.WndProc(m)

If m.Result.ToInt32 = WM_CREATE Then

windowHandle = FindWindow(vbNullString, inputTitle)

ElseIf windowHandle > 0 Then

setPassword()

windowHandle = 0

End If

End Sub



Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click

lblPw.Text = "InputBox Password:"

returnedPW = InputBox("Enter the Password In the box!", inputTitle, "password!", 0)

If Not returnedPW = Nothing AndAlso returnedPW = "password!" Then

lblPw.Text = "InputBox Password Is: " & returnedPW

Else

lblPw.Text = "InputBox Password Is: Wrong!"

MessageBox.Show("Wrong Password!", " Try Again")

End If

End Sub

End Class

---

Bu kodu denermisiniz her iki koduda değişiklik yaparak kullanabilirsiniz. ilk verdiğim kodu modüle yazacaksınız.

Arkadaşım ben acemiyim, çok basit bişey istemiştim. Amacım sadece şifreyi Password "****" şeklinde gözükmesini sağlamak.
İlgine ve emeğine sağlık,, teşekkür ederim..