floppy formatting Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php

Private Declare Function SHFormatDrive Lib "shell32" (ByVal hwndOwner As Long, ByVal iDrive As Long, ByVal iCapacity As Long, ByVal iFormatType As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private hWnd  As Long

Const SHFMT_DRV_A = 0
Const SHFMT_DRV_B = 1

Const SHFMT_ID_DEFAULT = &HFFFF
Const SHFMT_OPT_QUICKFORMAT = 0
Const SHFMT_OPT_FULLFORMAT = 1

Const SHFMT_OPT_SYSONLY = 2
Const SHFMT_ERROR = -1
Const SHFMT_CANCEL = -2
Const SHFMT_NOFORMAT = -3

Private Sub format()
Dim Res As Long
  hWnd = FindWindow(vbNullString, Me.Caption)
  Res = SHFormatDrive(hWnd, SHFMT_DRV_A, SHFMT_ID_DEFAULT, SHFMT_OPT_QUICKFORMAT)
  
  Select Case Res
    Case SHFMT_ERROR
      MsgBox "Hata.", vbCritical
    Case SHFMT_CANCEL
      MsgBox "İptal edildi.", vbInformation
    Case SHFMT_NOFORMAT
      MsgBox "Formatlı değil.", vbInformation
    Case Else
      MsgBox "Formatlama bitti."
    End Select
    
End Sub

Private Sub CommandButton1_Click()
format
End Sub

No	Macro Name
1	floppy formatting
2	a .bat file from a floppy disk
3	backs up the workbook
4	floppy disk backup
5	book backup to floppy disk
6	backs up your book to a floppy disk
7	floppy labeling
8	Conditional formatting for 9 different values
9	fonts in word
10	excel fonts 2
11	conditional formatting window
12	Conditional formatting Dialog Window
13	hard disk formatting
14	opening macro (message in active window.)
15	list fonts with samples
16	text box formatting
17	excel operators hk
18	book total how many times which date and time opened
19	writes b1 date to b2
20	a1e force to enter date with vba

Excel Free Macros (VBA)

Floppy Formatting

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords