Chạy Runas ứng Dụng Trong VBA | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Chạy Runas ứng dụng trong VBA (1 người xem)

• Thread starter Thread starter VMH0307
• Ngày gửi Ngày gửi 20/2/14

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) V

VMH0307

real women for private encounters

Tham gia 5/8/11 Bài viết 766 Được thích 611 Giới tính Nữ Nghề nghiệp live girls online Kính gửi: mọi người trên diễn đàn! Em đang có nhu cầu sử dụng VBA để mở 1 ứng dụng khác (ví dụ: Task manager) bằng user khác (ví dụ: user administrator) Em sử dụng lệnh: Shell "runas /u:administrator taskmgr" sau đó MSDOS hiện ra cửa sổ nhập pass để mình nhập vào. Vậy có cách nào để công đoạn nhập Pass này thông qua VBA luôn không? Em cám ơn! Sắp xếp theo thời gian sắp xếp theo bầu chọn

hungpecc1

Thành viên gắn bó

Tham gia 24/8/12 Bài viết 1,709 Được thích 2,304 Giới tính Nam

tttmuahmuah đã viết: Kính gửi: mọi người trên diễn đàn! Em đang có nhu cầu sử dụng VBA để mở 1 ứng dụng khác (ví dụ: Task manager) bằng user khác (ví dụ: user administrator) Em sử dụng lệnh: Shell "runas /u:administrator taskmgr" sau đó MSDOS hiện ra cửa sổ nhập pass để mình nhập vào. Vậy có cách nào để công đoạn nhập Pass này thông qua VBA luôn không? Em cám ơn! Nhấp chuột vào đây để mở rộng...

sao không thử qua mấy hàm API tôi thử dùng hàm sau : ( lưu ý máy mình là win 7 64bits, bạn tự tùy chỉnh cho phù hợp với 32 bits nhé ) Mã: Sao chép. Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long '----------------------------------------------------------------------- Sub GPE() ShellExecute 0&, "runas", [B]"C:\Program Files (x86)\TeamViewer\Version9\TeamViewer.exe"[/B], "", "", 1 'Shell "runas /user:administrator taskmgr" End Sub p/s : 32 bits thì bỏ ptrsafe và thay longptr = long Upvote 0 V

VMH0307

real women for private encounters

Tham gia 5/8/11 Bài viết 766 Được thích 611 Giới tính Nữ Nghề nghiệp live girls online Cám ơn bạn hungpecc1, bạn có thể giải thích giúp mình về "công đoạn" điền password cho user thông qua code theo như cách của bạn được không. cám ơn bạn nhiều. Upvote 0

hungpecc1

Thành viên gắn bó

Tham gia 24/8/12 Bài viết 1,709 Được thích 2,304 Giới tính Nam

tttmuahmuah đã viết: Cám ơn bạn hungpecc1, bạn có thể giải thích giúp mình về "công đoạn" điền password cho user thông qua code theo như cách của bạn được không. cám ơn bạn nhiều. Nhấp chuột vào đây để mở rộng...

Hàm Shellexecute của API khác hàm Shell của VBA ! Bình thường khi bạn mở 1 file hay một chương trình(exe) , bạn có thể click trực tiếp, hay chuột phải lên file để chọn các tính năng khác như : run as adimintrator, print, find .... và hàm shellexecute cho phép bạn làm tất cả các hành động trên một cách tự đông ! Upvote 0 V

VMH0307

real women for private encounters

Tham gia 5/8/11 Bài viết 766 Được thích 611 Giới tính Nữ Nghề nghiệp live girls online

hungpecc1 đã viết: Hàm Shellexecute của API khác hàm Shell của VBA ! Bình thường khi bạn mở 1 file hay một chương trình(exe) , bạn có thể click trực tiếp, hay chuột phải lên file để chọn các tính năng khác như : run as adimintrator, print, find .... và hàm shellexecute cho phép bạn làm tất cả các hành động trên một cách tự đông ! Nhấp chuột vào đây để mở rộng...

Mình hơi dốt khoản này, mình đã chạy hàm bằng API, với runas và máy cho hiện ra hộp thoại để mình chọn user và pass. Còn chạy bằng Shell thì cho ra CMD để nhập pass. Hiện mình muốn việc nhập pass này cũng làm bằng code luôn. Bạn có thể chỉ giúp mình việc như thế nào không. Upvote 0

hungpecc1

Thành viên gắn bó

Tham gia 24/8/12 Bài viết 1,709 Được thích 2,304 Giới tính Nam

tttmuahmuah đã viết: Mình hơi dốt khoản này, mình đã chạy hàm bằng API, với runas và máy cho hiện ra hộp thoại để mình chọn user và pass. Còn chạy bằng Shell thì cho ra CMD để nhập pass. Hiện mình muốn việc nhập pass này cũng làm bằng code luôn. Bạn có thể chỉ giúp mình việc như thế nào không. Nhấp chuột vào đây để mở rộng...

** bạn dùng hệ điều hành gì // ** Cụ thể bạn muốn mở chương trình gì ?? với quyền run as adminitrator ?? Upvote 0 V

VMH0307

real women for private encounters

Tham gia 5/8/11 Bài viết 766 Được thích 611 Giới tính Nữ Nghề nghiệp live girls online

hungpecc1 đã viết: ** bạn dùng hệ điều hành gì // ** Cụ thể bạn muốn mở chương trình gì ?? với quyền run as adminitrator ?? Nhấp chuột vào đây để mở rộng...

Mình dùng hệ điều hành Window XP. Mình có 1 tập hợp các user khác nhau và password tương ứng của chúng. Nhu cầu của mình là việc mở file hoặc ứng dụng với phân quyền của user đó bằng code (có thể mình đang log on bằng guest, admin hoặc 1 user abc nào đó và chuyển đổi qua lại giữa chúng) Nói thêm: mình chỉ muốn mở file, ứng dụng chuyển đổi qua lại user theo cách Runas Upvote 0 Q

quykiemsau

Thành viên chính thức

Tham gia 4/8/10 Bài viết 66 Được thích 0 Xin ké 1 câu hỏi trong chủ đề này? Dear all, Tôi có một câu hỏi tương tự với chủ đề này nên xin phép chủ topfic và ban quản trị cho phép ạ! Trong khi chờ đợi kết quả mọi người xem trường hợp của tôi có cách nào giải quyết bằng code được không ạ? Trong ảnh đính kèm nhờ các bạn giúp tôi sửa số 0 trong khung màu xanh thành số 1 qua việc chạy code? Xin cảm ơn. Upvote 0 S

siwtom

Thành viên gắn bó

Tham gia 19/3/08 Bài viết 2,127 Được thích 4,211

tttmuahmuah đã viết: Kính gửi: mọi người trên diễn đàn! Em đang có nhu cầu sử dụng VBA để mở 1 ứng dụng khác (ví dụ: Task manager) bằng user khác (ví dụ: user administrator) Em sử dụng lệnh: Shell "runas /u:administrator taskmgr" sau đó MSDOS hiện ra cửa sổ nhập pass để mình nhập vào. Vậy có cách nào để công đoạn nhập Pass này thông qua VBA luôn không? Em cám ơn! Nhấp chuột vào đây để mở rộng...

Thế khi hiện cửa sổ CMD thì bạn có gõ được mật khẩu không? Tôi thử trên XP Home Edition của tôi thì tôi không gõ được bất cứ phím chữ cái nào để nhập mật khẩu. Chỉ có thể nhấn Enter mà thôi. Tất nhiên chỉ Enter thì sẽ có thông báo lỗi. Nhưng không thể gõ được phím nào khác mới bực chứ. Nếu bạn nhập được mật khẩu và sau khi nhấn Enter thì khởi động được Task Manager thì ... Tôi chưa làm cái này bao giờ nhưng nhớ hồi ở DOS có cách sau đây. Không phải là RunAs. Nếu ở DOS ta nhập dòng lệnh vd. là del c:\blala\*.*, tức ta định xóa tất cả các tập tin trong thư mục c:\blala thì bao giờ cũng có thông báo đại loại là "c:\blala\*.* Chắc chắn chứ <Y/N>?" Lúc đó nếu đúng là ta muốn (vì có thể nhầm) thì phải nhập y (hoặc Y) rồi nhấn Enter. Để khỏi phải y + Enter thì ta soạn 1 tập tin: mở notepad --> nhấn y --> nhấn Enter --> lưu vd. là c:\yes.txt Sau đó thì câu lệnh là Mã: Sao chép. del c:\blala\*.* < c:\yes.txt Ai đó có thể nói: nếu phải gõ thêm "< c:\yes.txt" thì thà gõ "y + Enter" còn nhanh hơn. Đúng thế. Nhưng nếu ta viết 1 tập tin BAT trong đó có vd. 10 dòng lệnh như trên thì mỗi lần chạy BAT ta phải gõ 10 lần "y + Enter". Nếu ta thêm vào 10 dòng lệnh kia 10 "y + Enter" thì cho dù khi cần ta có chạy 100 lần BAT thì chả bao giờ ta phải cặm cụi gõ "y + Enter" nữa. Có nhiều câu lệnh khác mà khi ta chạy thì DOS cũng hiển thị câu hỏi và chờ ta nhập thông tin. Lúc đó cũng có thể nhập thông tin từ tập tin TXT (có nội dung: <câu trả lời> --> Enter) Tóm lại bạn hãy thử như sau: mở notepad --> gõ mật khẩu --> gõ Enter (sẽ thấy trỏ text xuống dòng) --> ghi lại vd. là c:\pass.txt Sau đó thử sửa câu lệnh như sau Mã: Sao chép. Shell "runas /user:administrator taskmgr < c:\pass.txt" Cũng có thể dùng code để: tạo tập tin pass.txt --> ghi lên đĩa --> dùng tập tin --> xóa tập tin. Tôi không dám chắc vì chưa bao giờ làm. Chỉ là nhớ lại hồi xửa hồi xưa ... Nếu không được thì tôi cũng chịu Upvote 0 V

VMH0307

real women for private encounters

Tham gia 5/8/11 Bài viết 766 Được thích 611 Giới tính Nữ Nghề nghiệp live girls online

siwtom đã viết: Thế khi hiện cửa sổ CMD thì bạn có gõ được mật khẩu không? Tôi thử trên XP Home Edition của tôi thì tôi không gõ được bất cứ phím chữ cái nào để nhập mật khẩu. Chỉ có thể nhấn Enter mà thôi. Tất nhiên chỉ Enter thì sẽ có thông báo lỗi. Nhưng không thể gõ được phím nào khác mới bực chứ. Nếu bạn nhập được mật khẩu và sau khi nhấn Enter thì khởi động được Task Manager thì ... Tôi chưa làm cái này bao giờ nhưng nhớ hồi ở DOS có cách sau đây. Không phải là RunAs. Nếu ở DOS ta nhập dòng lệnh vd. là del c:\blala\*.*, tức ta định xóa tất cả các tập tin trong thư mục c:\blala thì bao giờ cũng có thông báo đại loại là "c:\blala\*.* Chắc chắn chứ <Y/N>?" Lúc đó nếu đúng là ta muốn (vì có thể nhầm) thì phải nhập y (hoặc Y) rồi nhấn Enter. Để khỏi phải y + Enter thì ta soạn 1 tập tin: mở notepad --> nhấn y --> nhấn Enter --> lưu vd. là c:\yes.txt Sau đó thì câu lệnh là Mã: Sao chép. del c:\blala\*.* < c:\yes.txt Ai đó có thể nói: nếu phải gõ thêm "< c:\yes.txt" thì thà gõ "y + Enter" còn nhanh hơn. Đúng thế. Nhưng nếu ta viết 1 tập tin BAT trong đó có vd. 10 dòng lệnh như trên thì mỗi lần chạy BAT ta phải gõ 10 lần "y + Enter". Nếu ta thêm vào 10 dòng lệnh kia 10 "y + Enter" thì cho dù khi cần ta có chạy 100 lần BAT thì chả bao giờ ta phải cặm cụi gõ "y + Enter" nữa. Có nhiều câu lệnh khác mà khi ta chạy thì DOS cũng hiển thị câu hỏi và chờ ta nhập thông tin. Lúc đó cũng có thể nhập thông tin từ tập tin TXT (có nội dung: <câu trả lời> --> Enter) Tóm lại bạn hãy thử như sau: mở notepad --> gõ mật khẩu --> gõ Enter (sẽ thấy trỏ text xuống dòng) --> ghi lại vd. là c:\pass.txt Sau đó thử sửa câu lệnh như sau Mã: Sao chép. Shell "runas /user:administrator taskmgr < c:\pass.txt" Cũng có thể dùng code để: tạo tập tin pass.txt --> ghi lên đĩa --> dùng tập tin --> xóa tập tin. Tôi không dám chắc vì chưa bao giờ làm. Chỉ là nhớ lại hồi xửa hồi xưa ... Nếu không được thì tôi cũng chịu Nhấp chuột vào đây để mở rộng...

Vâng đối với Runas trên màn hình Command line (CMD) thì ví dụ: runas /u:administrator taskmgr enter the password for administrator: thì nhập pass vào đây máy vẫn nhận nhưng không hiển thị -> đó là lý do vì sao bác thấy máy không nhận bất cứ phím chữ cái nào. (thực ra bác cứ nhập đúng mật khẩu thì là OK) Với phép thử của bác Shell "runas /user:administrator taskmgr < c:\pass.txt" không cho kết quả. kể cả khi cháu đang ở màn hình administrator mở chính user này hay user guest cũng đều hiển thị lỗi log on failure bác ạ. Cám ơn bác nhiều, mong bác có cao kiến khác. P/s: Nếu không dùng Shell mà dùng ShellExcute thì thay vì màn hình command line, nó hiển thị hộp thoại runas. với hộp thoại này cháu có kiểm tra thấy; Check box của User: ID: 260, ClassName: Editbox Textbox nhập pass: ID: 1005, ClassName: Edit Nút nhấn OK: ID: 1, ClassName: Button, text: OK. Upvote 0 S

siwtom

Thành viên gắn bó

Tham gia 19/3/08 Bài viết 2,127 Được thích 4,211

tttmuahmuah đã viết: Vâng đối với Runas trên màn hình Command line (CMD) thì ví dụ: runas /u:administrator taskmgr enter the password for administrator: thì nhập pass vào đây máy vẫn nhận nhưng không hiển thị -> đó là lý do vì sao bác thấy máy không nhận bất cứ phím chữ cái nào. (thực ra bác cứ nhập đúng mật khẩu thì là OK) Với phép thử của bác Shell "runas /user:administrator taskmgr < c:\pass.txt" không cho kết quả. kể cả khi cháu đang ở màn hình administrator mở chính user này hay user guest cũng đều hiển thị lỗi log on failure bác ạ. Cám ơn bác nhiều, mong bác có cao kiến khác. P/s: Nếu không dùng Shell mà dùng ShellExcute thì thay vì màn hình command line, nó hiển thị hộp thoại runas. với hộp thoại này cháu có kiểm tra thấy; Check box của User: ID: 260, ClassName: Editbox Textbox nhập pass: ID: 1005, ClassName: Edit Nút nhấn OK: ID: 1, ClassName: Button, text: OK. Nhấp chuột vào đây để mở rộng...

Kể cũng lạ. Tôi gõ không nhìn thấy gì và trỏ text cũng không di chuyển, và khi Enter thì có thông báo lỗi. Có thể do phiên bản Windows của tôi. Tôi dùng XP Home Edition (chắc chắn không có bảo mật như vd. Professional) và Windows 7 Starter (cũng là loại vét đĩa) ------- Nếu những class và ID này không thay đổi theo phiên bản Windows, tức như nhau trong Xp, Windows 7 thì có thể dùng kỹ thuật "điều khiển tự động". Để tôi kiểm tra lại trong XP thì các class và ID này là gì -------------- View attachment 116602 Như trong hình, cả user và pass đều bị disabled nên tôi không đọc được class và ID của chúng. Hình này là trên XP Home Edition của tôi. Để tôi sang máy người khác - Windows 7 Starter xem thế nào. ---------- Bạn dùng XP? Cái cửa sổ đăng nhập có class trong XP của tôi là #32770, bạn có thế không? Thế title (trên thanh tiêu đề) của nó là gì? Bạn dùng Windows nào? Nếu nhập bằng tay thì bạn nhập pass thế nào? Nếu cả user thì là chọn (combobox?) hay gõ, gõ gì chọn gì nếu làm bằng tay? Lần chỉnh sửa cuối: 20/2/14 Upvote 0 S

siwtom

Thành viên gắn bó

Tham gia 19/3/08 Bài viết 2,127 Được thích 4,211 Tôi đã thử với ShellExecute nhưng không được. Mã: Sao chép. Sub GPE() Dim hwnd As Long, ChildWnd As Long ' run taskmgr ShellExecute 0, "runas", "C:\WINDOWS\system32\TaskMgr.exe", "", "", 1 ' tim cua so Run As hwnd = FindWindow("#32770", "Run As") ' tim nut OK ChildWnd = FindWindowEx(hwnd, 0, "Button", "OK") ' thu doc handle cua OK MsgBox ChildWnd End Sub Nguyên nhân là control dừng ở dòng ShellExecute ... cho tới tận khi chạy Task Manager. Nhưng cửa sổ "Run As" thì lại dừng và đợi nhập user + pasword + OK rồi mới run Task Manager. Vậy code dừng ở dòng ShellExecute cho tới ngày tận thế. Hoặc cho tới lúc ta nhập bằng tay user + password rồi nhấn OK. Lúc đó thì Task Manager được run và control lúc này mới chuyển tới dòng code hwnd = FindWindow("#32770", "Run As") để thực hiện. Nhưng lúc này thì cửa sổ "Run As" đã đóng từ đời nào rồi nên hwnd = 0, tiếp theo dĩ nhiên ChildWnd = 0. ------------- Hồi xa xưa tôi có "vọc" trong Delphi. Bây giờ tìm lại và dịch sang VBA. Tôi thử trên XP Home Edition thì thành công. Bạn test thử xem. Nếu vẫn không thành công thì tôi xin dừng tại đây. Về các thông số của hàm API CreateProcessWithLogonW thì bạn hãy đọc tại http://msdn.microsoft.com/en-us/library/windows/desktop/ms682431(v=vs.85).aspx Mã: Sao chép. Private Const LOGON_WITH_PROFILE As Long = &H1 Private Const LOGON_NETCREDENTIALS_ONLY = &H2 Private Const LOGON32_LOGON_INTERACTIVE = 2 Private Const LOGON32_PROVIDER_DEFAULT = 0 Private Const INFINITE As Long = &HFFFFFFFF Private Type STARTUPINFOW cb As Long lpReserved As Long lpDesktop As Long lpTitle As Long dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Byte hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type Private Declare Function CreateProcessWithLogonW Lib "advapi32" (ByVal UserName As String, _ ByVal Domain As String, ByVal Password As String, ByVal dwLogonFlags As Long, _ ByVal ApplicationName As String, ByVal strCommandLine As Long, ByVal dwCreationFlags As Long, _ ByVal lpEnvironment As Long, ByVal strCurrentDirectory As Long, ByRef lpStartupInfo As STARTUPINFOW, _ ByRef lppiProcessInfo As PROCESS_INFORMATION) As Long Private Declare 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 Private Declare Function WaitForSingleObject Lib "kernel32.dll" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long Public Function RunAsUser(ByVal UserName As String, ByVal Password As String, _ ByVal DomainName As String, AppName As String, Optional ByVal Wait As Boolean = False) As Long Dim si As STARTUPINFOW Dim pi As PROCESS_INFORMATION Dim wUser As String Dim wDomain As String Dim wPassword As String Dim wAppName As String Dim Result As Long si.cb = Len(si) wUser = StrConv(UserName & Chr(0), vbUnicode) wDomain = StrConv(DomainName & Chr(0), vbUnicode) wPassword = StrConv(Password & Chr(0), vbUnicode) wAppName = StrConv(AppName & Chr(0), vbUnicode) Result = CreateProcessWithLogonW(wUser, wDomain, wPassword, _ LOGON_WITH_PROFILE, wAppName, 0, 0, 0, 0, si, pi) If Result <> 0 Then ' thanh cong ' neu Wait TRUE thi code dung o dong [COLOR=#0000ff]WaitForSingleObject[/COLOR] cho toi khi process cua wAppName ket thuc ' sau do moi chay tiep code CloseHandle pi.hThread If Wait Then [COLOR=#0000ff]WaitForSingleObject[/COLOR] pi.hProcess, INFINITE CloseHandle pi.hThread CloseHandle pi.hProcess RunAsUser = 0 Else ' that bai RunAsUser = Err.LastDllError MsgBox "CreateProcessWithLogonW that bai " & Err.LastDllError, vbExclamation End If End Function Sub GPE() Dim hwnd As Long, ChildWnd As Long [COLOR=#ff0000]RunAsUser[/COLOR] "user", "password", "Domain", "C:\WINDOWS\system32\taskmgr.exe" ... End Sub Nếu sau dòng code RunAsUser còn có nhiều code khác mà ta truyền cho RunAsUser thông số cuối cùng là TRUE thì control sẽ dừng ở dòng RunAsUser cho tới tận khi Task Manager được đóng. Lúc đó các code sau RunAsUser mới được thực thi. Nguyên nhân là do khi Wait = TRUE thì control sẽ dừng ở dòng WaitForSingleObject cho tới khi process của Task Manager kết thúc (đợi cho tới "ngàn thu" - do INFINITE hoặc cho tới khi process kết thúc - pi.hProcess). Lúc đó RunAsUser mới trở về (return) và các code sau RunAsUser mới được thực hiện. Nói nôm na thì WaitForSingleObject "đợi" cho tới khi một trong 2 sự kiện sẩy ra thì mới return. Sự kiện 1 là process có handle là pi.hProcess kết thúc. Sự kiện 2 là "khoảng thời gian ấn định" đã trôi qua. INFINITE có nghĩa là "khoảng thời gian ấn định" là "ngàn thu". Vậy thực chất là ta đợi cho tới khi process kết thúc. Vì "ngàn thu" có bao giờ kết thúc đâu. Lần chỉnh sửa cuối: 21/2/14 Upvote 0 V

VMH0307

real women for private encounters

Tham gia 5/8/11 Bài viết 766 Được thích 611 Giới tính Nữ Nghề nghiệp live girls online Cháu cám ơn bác Siwtom rất nhiều. Chuyến này cháu phải ngâm cứu số Code này mới được. Phần WaitForSingleObject hay quá bác ạ. Upvote 0 Q

quykiemsau

Thành viên chính thức

Tham gia 4/8/10 Bài viết 66 Được thích 0

QuỷKiếmSầu đã viết: Dear all, Tôi có một câu hỏi tương tự với chủ đề này nên xin phép chủ topfic và ban quản trị cho phép ạ! Trong khi chờ đợi kết quả mọi người xem trường hợp của tôi có cách nào giải quyết bằng code được không ạ? View attachment 116595 Trong ảnh đính kèm nhờ các bạn giúp tôi sửa số 0 trong khung màu xanh thành số 1 qua việc chạy code? Xin cảm ơn. Nhấp chuột vào đây để mở rộng...

Nếu chủ topfic đã thỏa mãn với câu trả lời rồi thì tôi xin phép được nhắc lại bài này để nhờ giúp đỡ. Xin cảm ơn. Upvote 0 S

siwtom

Thành viên gắn bó

Tham gia 19/3/08 Bài viết 2,127 Được thích 4,211

QuỷKiếmSầu đã viết: Nếu chủ topfic đã thỏa mãn với câu trả lời rồi thì tôi xin phép được nhắc lại bài này để nhờ giúp đỡ. Xin cảm ơn. Nhấp chuột vào đây để mở rộng...

Lần sau bạn đừng chen ngang như thế. Muốn hỏi thì lập chủ đề mà hỏi Mã: Sao chép. Private Sub Hichic() Dim name As String, shellObj As Object name = "HKEY_CURRENT_USER\Console\ColorTable00" Set shellObj = CreateObject("WScript.Shell") shellObj.RegWrite name, 1, "REG_DWORD" Set shellObj = Nothing End Sub Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

N Công thức trích xuất riêng các ký tự trong chuỗi họ tên

• Ngựa con 2002
• Hôm qua, lúc 23:07
• Xử lý chuỗi ký tự

Trả lời 7 Đọc 71 43 phút trước Ngựa con 2002 N D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện (1 người xem)

• dieppk.nb92
• Hôm nay lúc 01:22
• Hàm và công thức Excel

Trả lời 2 Đọc 92 Hôm nay lúc 09:44 Phan Thế Hiệp H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

• H_P
• Hôm qua, lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 1 Đọc 52 Hôm nay lúc 08:42 Gà Con yêu VBA Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

• QUANSUNG
• Hôm qua, lúc 10:55
• Hàm và công thức Excel

Trả lời 2 Đọc 89 Hôm nay lúc 00:02 dungpham01 D Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Hôm qua, lúc 16:15 le_vis L Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự (1 người xem)

• HeSanbi
• Hôm qua, lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 0 Đọc 64 Hôm qua, lúc 15:41 HeSanbi D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc

• Dinh Hong Nhung
• Thứ năm lúc 10:36
• Hàm và công thức Excel

Trả lời 14 Đọc 542 Hôm qua, lúc 10:43 Cúc Hr C D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• Thứ sáu lúc 15:39
• Lập Trình với Excel

Trả lời 3 Đọc 117 Hôm qua, lúc 07:17 HUONGHCKT H CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ

• • 
  • 

• PhanTuHuong
• 4/10/22
• Thư giãn

Trả lời 8 Đọc 2K Hôm qua, lúc 00:09 PhanTuHuong D

• Question Question

IN TỰ ĐỘNG TỪ DỮ LIỆU CÓ SẴN

• duongnhuxuyen
• 12/11/25
• Lập Trình với Excel

Trả lời 14 Đọc 439 Thứ sáu lúc 19:42 duongnhuxuyen D V Biểu diễn số đếm theo hình vẽ từ Shape

• Vũ Hải Sơn
• 2/12/25
• Hàm và công thức Excel

Trả lời 34 Đọc 656 Thứ sáu lúc 15:31 Vũ Hải Sơn V T Xử lý lỗi xuất hiện màu cam khi chọn 1 ô trong excel.

• Thúy Sa
• Thứ năm lúc 17:17
• Những vấn đề chung

Trả lời 1 Đọc 87 Thứ năm lúc 20:29 Maika8008 L

• Question Question

Tạo ComboBox để tìm kiếm tên

• lyvanthang
• Thứ năm lúc 10:36
• Lập Trình với Excel

Trả lời 4 Đọc 175 Thứ năm lúc 20:26 HUONGHCKT H T Điên đầu vì Countif

• TVT230279
• 5/12/25
• Hàm và công thức Excel

Trả lời 5 Đọc 253 Thứ năm lúc 11:30 87kilua H Quên mật khẩu khóa protect

• Hoale85
• 20/2/25
• Những vấn đề chung

Trả lời 22 Đọc 1K Thứ năm lúc 09:10 Gà Con yêu VBA

• Question Question

Hướng dẫn sửa lỗi không khởi động được ứng dụng Excel

• • 
  • 

• HeSanbi
• Thứ tư lúc 23:52
• Lập Trình với Excel

Trả lời 0 Đọc 96 Thứ tư lúc 23:52 HeSanbi K Lập trình để xoá giá trị trong file PDF

• khoa289
• 28/11/25
• Excel và các ngôn ngữ lập trình khác

Trả lời 14 Đọc 578 Thứ tư lúc 17:05 khoa289 K E

• Question Question

VBA code thay thế cho pivot-table lấy top 10, bottom 10

• • 

• eagle12
• Thứ hai lúc 17:23
• Lập Trình với Excel

Trả lời 12 Đọc 334 Thứ tư lúc 15:26 87kilua TaxCode v4.21 - Add-in Tra cứu mã số thuế từ tổng cục thuế nhanh chóng

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 15 Đọc 1K Thứ tư lúc 12:44 HeSanbi Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• PhanTuHuong
• Thứ tư lúc 08:26
• Câu lạc bộ hoạt động xã hội

Trả lời 3 Đọc 236 Thứ tư lúc 12:12 PhanTuHuong Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Maika8008 32
• dungpham01 18
• thanthanhan 16
• ongke0711 16
• nguyenanhtruong2409 14
• vic_it 11
• nhhnam 10
• eagle12 10
• Vũ Hải Sơn 9
• HUONGHCKT 9
• Phan Thế Hiệp 9
• pycckuu410 8
• bsbnhh 7
• HeSanbi 7
• Hana2610 6
• Gà Con yêu VBA 6
• Phuocam 5
• ketoan113 5
• Emyeuexcel 5
• huuthang_bd 5

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 55
• Maika8008 26
• ongke0711 17
• thanthanhan 13
• HeSanbi 9
• dungpham01 9
• Cúc Hr 8
• eagle12 7
• HUONGHCKT 7
• Mr.hieudoanxd 5
• befaint 5
• SA_DQ 4
• nguyenanhtruong2409 4
• pycckuu410 4
• Phuocam 4
• tieutuvodanh192 2
• Emyeuexcel 2
• nhhnam 2
• Dinh Hong Nhung 2
• huuthang_bd 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom