윈도우 자체에서 메모장 항상 위 구현 (다운로드, usb 복사 등이 필요없어 보안이 중요한 회사에서도 활용 가능)-엑셀 또는 파워셀(PowerShell) 활용

♠ 만들게 된 동기 – 어떤 분의 요청이 있었음 ♧

보안이 중요한 회사의 경우 회사 컴에서는 인터넷 접속이 불가능 하거나, 다운로드가 되지 않거나, USB를 이용한 복사가 불가능한 경우가 많습니다. 이런 경우 ‘메모장항상위’ 같은 프로그램을 사용할 수 없어 불편한 경우가 많지요.

어떤 분의 요청으로 이런 경우 메모장을 항상 위로 고정시킬 수 있는 좋은 방법이 없냐고 하셔서 구글링하여 만들어본 것입니다.

구현 방법은 2가지이며, 둘 중 편한 방법을 사용하시면 됩니다.

 

 

♠ 참고 - 이전에 만들었던 것 ♧  

1. (유틸) 메모장 항상 위로 고정시키는 프로그램 (메모장항상위.exe) - 메모장을 항상 위 속성으로 실행시키는 프로그램(빈 메모장이 나옴)

2. 메모장 항상 위로 고정시키는 프로그램 V2 (작업메모장항상위.exe) - 작업.txt 파일을 항상 위 속성으로 실행시키는 프로그램

 

 

 

728x90

♠ 방법1 – 엑셀 vba 활용 ♧

기업이라면 대부분 기본으로 엑셀이 깔려있겠죠? 엑셀의 VBA를 활용하면 구현이 가능합니다.

1. 엑셀을 실행시킵니다.

2. 우선 메뉴 중에 개발 도구가 있는지 확인합니다. 없으면 아래와 같이 작업을 하시기 바랍니다.

  2-1. (파일) 클릭

  2-2. (옵션) 클릭

  2-3. Excel 옵션 창에서 (리본 사용자 지정) 클릭 후 (개발 도구)에 체크 표시를 한 후 확인을 누릅니다.

 

3. (개발 도구)-(Visual Basic) 을 누르거나, <Alt> + <F11> 키를 눌러 VBA 편집 창을 열어줍니다.

 

4. 프로젝트 창의 흰 부분에서 마우스 오른쪽을 눌러 단축메뉴에서 (삽입)-(모듈)을 눌러줍니다.

 

5. 새로 생성된 Module1의 편집창에 아래 코드를 모두 복사하여 붙여넣기를 합니다.

 

Public Declare PtrSafe Function SetWindowPos Lib "user32" ( _     ByVal hwnd As LongPtr, ByVal hwndInsertAfter As LongPtr, ByVal x As Long, _     ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) _ As Long Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _     ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _     ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) _ As Long Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) Public Const SWP_NOSIZE = &H1 Public Const SWP_NOMOVE = &H2 Public Const HWND_TOPMOST = -1 Public Const HWND_NOTOPMOST = -2 Sub notepadAlwaysOnTop()          Dim progname As String     progname = "Notepad"          Dim proc As Long     proc = Shell(progname, vbNormalFocus)          Sleep (200)          Dim hwnd As Long     hwnd = FindWindow(progname, vbNullString)                   Call SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE) End Sub

 

6. 저장을 눌러준 후 VBA 편집창을 닫아줍니다.

 

7. (개발 도구)-(삽입)을 눌러 양식 컨트롤 첫번째 버튼을 선택 후 시트에 드래그하여 버튼을 만듭니다.

 

8. 바로 이어 나오는 매크로 지정 창에서 notepadAlwaysOnTop 부분을 클릭한 후  확인을 눌러주면 됩니다.

 

9. 이제 버튼을 누르면 항상위 속성을 가지고 있는 메모장이 열립니다.

 

(참고1) '단추 1'이라는 부분의 글자를 바꾸려면 마우스 오른쪽 클릭 후 텍스트 편집을 눌러 수정하면 됨.

(참고2) 위 엑셀 파일을 저장할 때에는 확장자가 xlsx가 아닌 xlsm 으로 저장하셔야 합니다.

 

 

반응형

♠ 방법2 – PowerShell 이용 (엑셀이 없거나, 엑셀을 여는 것이 너무 느릴 경우) ♧

PowerShell은 윈도우에 기본 내장되어 있는 것으로, 기타 자세한 내용은 따로 검색을 해보시기 바랍니다.

1. 메모장을 열어 아래 코드를 복사하여 붙여넣기를 합니다.

 

# 실행하고 싶은 프로그램 # $exe = "C:\Program Files\Google\Chrome\Application\chrome.exe" $exe = "notepad" function Set-TopMost($handle) {   $FnDef = '     [DllImport("user32.dll")]     public static extern bool SetWindowPos(int hWnd, int hAfter, int x, int y, int cx, int cy, uint Flags);   ';   $user32 = Add-Type -MemberDefinition $FnDef -Name 'User32' -Namespace 'Win32' -PassThru   $user32::SetWindowPos($handle, -1, 0, 0, 0, 0, 3) } $pname = [System.IO.Path]::GetFileNameWithoutExtension($exe) $p = (Get-Process $pname -ErrorAction "SilentlyContinue") | ? { $_.MainWindowHandle -ne 0 } if ($p -eq $null) {   Write-Host "starting: $exe"   & $exe   Write-Host "Waiting for process '$pname'"   while ($p -eq $null) {     sleep -Milliseconds 100     $p = (Get-Process $pname -ErrorAction "SilentlyContinue") | ? { $_.MainWindowHandle -ne 0 }   } } $p.MainWindowHandle Set-TopMost $p.MainWindowHandle

 

2. 저장을 한 후, 파일 이름은 상관없고 파일의 확장자를 txt에서 ps1로 바꾸어 줍니다.

 

3. 그럼 위와 같은 아이콘이 나오는데, 아이콘 위에서 마우스 오른쪽을 누르면 아래와 같이 ‘PowerShell에서 실행’이라는 것이 나오며, 이것을 눌러주면 됩니다.

 

4. 그럼 파란 창이 잠시 나왔다가 없어지며, 항상위 속성을 가지고 있는 메모장이 열립니다.

(참고) 마우스 오른쪽을 눌러 실행시키는 것이 불편할 경우, 윈도우 설정을 바꾸어 더블클릭을 해서 실행할 수도 있습니다. 이 부분은 따로 다른 분이 작성한 글을 링크해 놓을테니 참고하시기 바랍니다.

https://honsal.blogspot.com/2021/01/welcome-file_24.html

PowerShell Script(.ps1) 파일이 메모장 대신 파워쉘에서 열리게 하는 방법

 

---

<방법1>은 실행 속도가 느리긴 하지만, 코드 내용을 조금 쉽게 이해할 수 있고,

<방법2>는 이해하기 조금 어렵지만, 실행 속도는 빠르니 둘 중에 하나를 골라 활용하시기 바랍니다.

위의 방법을 잘 활용하신다면 보안으로 다른 프로그램들을 설치하기 어려운 직장 컴에서 각종 프로그램 창을 여러가지로 제어하여 편리하게 사용할 수 있을 것 같습니다.

 

 

위에서 만든 파일도 같이 올려둘테니 필요하신 분은 참고하시기 바랍니다.

항상위엑셀.xlsm

0.02MB

 

항상위파워셀스크립트.ps1

0.00MB

 

 

---

항상위 관련 업그레이드 된 프로램들

항상 위 (AlwaysOnTop, 메모장, 기타 어떤 프로그램이든...) 종합판

항상 위 (AlwaysOnTop, 메모장, 기타 어떤 프로그램이든...) 종합판