Saberexcel - O Site das Macros
Essas macros com declarações do Aplicativo Microsoft Excel VBA, ocultam e ou mostram a barra de tarefas do Windows, ferramenta tarefa

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Option Explicit
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Sub Ocultar_barra_tarefa_windows()
SetWindowPos FindWindow("Shell_traywnd", ""), 0, 0, 0, 0, 0, SWP_HIDEWINDOW
End Sub

Sub Mostrar_barra_tarefa_windows()
SetWindowPos FindWindow("Shell_traywnd", ""), 0, 0, 0, 0, 0, SWP_SHOWWINDOW
End Sub


Aprenda Aplicativo Microsoft Excel VBA ---((SaberExcel ))---

Retorna o Número serial do HD do computador
Saberexcel - Dicas do aplicativo microsoft Excel VBA

Esta macro com as funções e declarações retorna uma mensagem com o número do HD do
seu computador mostro aqui duas funções.

Private Declare Function GetVolumeInformation& Lib "Kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, _
ByVal pVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemName As Long)

Private Const MAX_FILENAME_LEN = 256

Public Function GetSerialNumber(sDrive As String) As Long
Dim ser As Long
Dim s As String * MAX_FILENAME_LEN
Dim s2 As String * MAX_FILENAME_LEN
Dim j As Long
Dim i As Long

Call GetVolumeInformation _
(sDrive + ":\", s, MAX_FILENAME_LEN, ser, i, j, s2, MAX_FILENAME_LEN)
GetSerialNumber = ser
End Function

Sub Teste_Numero_HD()
MsgBox ("Número do HD ") & GetSerialNumber("C"), vbInformation, "Saberexcel - o site das macros"
MsgBox ("Número do HD ") & DriveSerialNumber("c"), vbInformation, "Saberexcel - o site das macros"
End Sub

Function DriveSerialNumber(Lecteur)
Dim sab, d
Set sab = CreateObject("Scripting.FileSystemObject")
Set d = sab.GetDrive(sab.GetDriveName _
(sab.GetAbsolutePathName(Lecteur & ":\")))
DriveSerialNumber = d.SerialNumber
End Function


Aprenda tudos sobre o Aplicativo microsoft Excel VBA - com SaberExcel

Compras na internet com segurança e garantia nas Lojas Submarino