ExcelVBAへの道
　

Sub ワークシートに保護を設定()
Worksheets("Sheet1").Protect _
Password:="seto", _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
AllowFormattingCells:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=True, _
AllowInsertingColumns:=True, _
AllowInsertingRows:=True, _
AllowDeletingColumns:=True, _
AllowDeletingRows:=True, _
AllowSorting:=True
End Sub
-------------------------------------------------
Sub 全シート選択()

Worksheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")).Select

End Sub
-------------------------------------------------
Sub 全シート保護の設定()
Dim Sh As Worksheet
x = Application.InputBox("パスワードを入力して下さい", Type:=3)
For Each Sh In Worksheets
Sh.Protect (x)
Next Sh
End Sub
--------------------------------------------------
Sub 全シート保護の解除()
Dim Sh As Worksheet
On Error GoTo ErLine
Do
x = Application.InputBox("パスワードを入力して下さい", Type:=3)
Loop While x = "False"
For Each Sh In Worksheets
Sh.Unprotect Password:=x
Next Sh
Exit Sub
ErLine:
y% = MsgBox("パスワードが違います ! 終了します", 48)
End Sub
---------------------------------------------------
Sub Excelの表示変更()
MsgBox "全画面表示にします"
Application.DisplayFullScreen = True
MsgBox "表示を戻します"
Application.DisplayFullScreen = False
End Sub
---------------------------------------------------
Sub ステータスバーの非表示()
Application.DisplayStatusBar = False
End Sub
---------------------------------------------------
Sub ズーム設定()
MsgBox "50%表示にします"
ActiveWindow.Zoom = 50
MsgBox "元に戻します"
Windows(1).Zoom = 100
End Sub
---------------------------------------------------
Sub ワークシートのアイコン化()
Windows(1).WindowState = xlMinimized
MsgBox "最大化にします"
Windows(1).WindowState = xlMaximized
MsgBox "元に戻します"
Windows(1).WindowState = xlNormal
End Sub
---------------------------------------------------
Sub ウィンドウのサイズ変更()
With Windows(1)
.WindowState = xlNormal
.Height = 200
.Width = 300
End With
End Sub
---------------------------------------------------
Sub Excelのアイコン化()
Application.WindowState = xlMinimized
MsgBox "元に戻します"
Application.WindowState = xlNormal
End Sub
---------------------------------------------------
Sub お気に入りに追加()
ThisWorkbook.AddToFavorites
End Sub
---------------------------------------------------
Set で定義する。

Set Src = Worksheets("sheet1").Range("A1:B10")
----------------------------------------------------
InputBoxの使い方

myname = InputBox("名前を入力して下さい。","名前入力用")
----------------------------------------------------
コピー
Worksheets("sheet1").Range("A1").copy Worksheets("sheet2").Range("A1")
-----------------------------------------------------
代入
Worksheets("sheet1").Range("A1")　= Worksheets("sheet2").Range("A1")
-----------------------------------------------------
選択
Worksheets("sheet1").Range("A1").Select
------------------------------------------------------
繰り返し
For mycount = 1 to 6
実行コード
Next
-------------------------------------------------------
繰り返し
For mycount = 1 to 6 Step 2
実行コード